Option Explicit
Sub C_Sample030()
    Dim myRng As Range
    Set myRng = Range("A1")					'Nxs
    myRng.Locked = True  					'O@
    'myRng.Locked = False					'Ѱ
    Set myRng = Nothing						'
End Sub
